home *** CD-ROM | disk | FTP | other *** search
/ Tux Racer / Tux Racer.iso / program files / Sunspire Studios / Tux Racer / courses / swiss / sunny_light.tcl < prev    next >
Encoding:
Text File  |  2001-09-09  |  1.2 KB  |  32 lines

  1. objset :course \
  2.     {-light0_on} {1} \
  3.     {-light0_ambient} {0.52999997139 0.600000023842 0.620000004768 1.0} \
  4.     {-light0_diffuse} {0.639999985695 0.620000004768 0.680000007153 1.0} \
  5.     {-light0_specular} {1.0 1.0 1.0 1.0} \
  6.     {-light0_position} {1.0 1.0 -1.0 0.0}
  7.     
  8.  
  9. tux_fog -on -mode linear -density 0.005 -colour { 0.82 0.87 0.93 1 } -start 0 \
  10.     -end [tux_get_param forward_clip_distance]
  11.   
  12. tux_particle_colour { 0.95 0.95 0.95 1.0 }
  13.  
  14. tux_load_texture envmap ../swiss/swisssunny_right.png 0
  15.  
  16. tux_load_texture swiss-front ../swiss/swisssunny_front.png 0
  17. tux_load_texture swiss-right ../swiss/swisssunny_right.png 0
  18. tux_load_texture swiss-left ../swiss/swisssunny_left.png 0
  19. tux_load_texture swiss-back ../swiss/swisssunny_back.png 0
  20. tux_load_texture swiss-top ../swiss/swisssunny_top.png 0
  21. tux_load_texture swiss-bottom ../swiss/swisssunny_bottom.png 0
  22.  
  23. tux_bind_texture sky_front swiss-front
  24. tux_bind_texture sky_right swiss-right
  25. tux_bind_texture sky_left swiss-left
  26. tux_bind_texture sky_back swiss-back
  27. tux_bind_texture sky_top swiss-top
  28. tux_bind_texture sky_bottom swiss-bottom
  29.  
  30. objcreate {s_texture_cube} {:textures:cubemap} \
  31.     {-filename} {../swiss/swisssunny_}
  32.